0 SYS65418:POKE648,4:POKE53272,21:POKE56576,199
5 IFA=.THENA=1:LOAD"SUBLIMINAL.ML",8,1
10 GOSUB60100:CLR:PRINTCHR$(142);
20 PRINT"[147]          SUBLIMINAL MESSENGER"
110 REM SET COLORS, TIMING, AND MESSAGE
120 PRINT"ENTER SCREEN COLOR FOR MESSAGE:   [157][157][157]";:DE$=STR$(PEEK(53281)AND15)
130 NC=3:SB=LEN(DE$):GOSUB60500:N=VAL(A$)
135 IFN>255ORA$=""THENPRINT"[145][145]";:GOTO120
140 POKE49362,N
150 PRINT"ENTER BORDER COLOR FOR MESSAGE:   [157][157][157]";:DE$=STR$(PEEK(53280)AND15)
160 SB=LEN(DE$):GOSUB60500:N=VAL(A$)
165 IFN>255ORA$=""THENPRINT"[145]";:GOTO150
170 POKE49363,N
180 PRINT"ENTER TEXT COLOR FOR MESSAGE:   [157][157][157]";:DE$=STR$(PEEK(646)AND15)
190 SB=LEN(DE$):GOSUB60500:N=VAL(A$)
195 IFN>255ORA$=""THENPRINT"[145]";:GOTO180
200 POKE49364,N
205 PRINT"HOW OFTEN SHOULD THE MESSAGE BLINK?"
210 PRINT"(IN SIXTIETHS OF A SECOND -- 1-255)":PRINT"--->   [157][157][157]";
220 DE$=" 60":SB=3:GOSUB60500:N=VAL(A$)
225 IFN>255ORA$=""THENPRINT"[145][145]";:GOTO210
227 POKE49365,N
228 PRINT"EVERY TIME THE MESSAGE BLINKS, HOW LONG"
229 PRINT"SHOULD IT BE DISPLAYED ON THE SCREEN?"
230 PRINT"(IN SIXTIETHS OF A SECOND -- 1-255)"
240 PRINT"-->   [157][157][157]";:DE$=" 5":SB=2:GOSUB60500:N=VAL(A$)
243 IFN>255ORA$=""THENPRINT"[145]";:GOTO240
245 POKE49366,N
247 PRINT"WHAT IS THE MESSAGE YOU'D LIKE TO HAVE"
250 PRINT"DISPLAYED?      (MAX. 38 CHARACTERS)"
255 NC=38:MM=1:DE$="":SB=1:GOSUB60500
260 TE$=A$
270 POKE648,160:PRINTCHR$(147);:FORX=1TO12:PRINTCHR$(17);:NEXT
280 FORX=1TO20-LEN(TEXT$)/2:PRINTCHR$(32);:NEXT:PRINTTEXT$
290 POKE648,4
340 SYS49152
350 PRINT"      PRESS SPACE TO EXIT TO BASIC"
360 PRINT"   PRESS RETURN TO RETURN TO LOADSTAR"
370 A=PEEK(203):IFA=1THEN60000
380 IFA=60THENEND
390 GOTO370
999 STOP
60000 SYS65418:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 PRINT"[147]";:IFER<>63THENEND
60015 SYS65418:POKE648,4:POKE53272,21:POKE56576,199
60020 LOAD"HELLO CONNECT",8
60100 POKE53280,7:POKE53281,7
60110 PRINT"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60140 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60150 PRINT"[149]          [204][207][193][196][211][212][193][210] [208]RESENTS:"
60160 PRINT"                               [146]"
60170 PRINT"         [211]UBLIMINAL  [205]ESSENGER [129] [146]"
60180 PRINT"                               [129] [146]"
60190 PRINT"           [194]Y:  [200]AROLD [196]ROID   [129] [146]"
60200 PRINT"                               [129] [146]"
60210 PRINT"           ([195])OPYRIGHT  1987   [129] [146]"
60220 PRINT"                               [129] [146]"
60230 PRINT"         [129]                       [146]"
60240 PRINT"[149]        [208]RESS [211][208][193][195][197] TO CONTINUE.":POKE198,.
60250 GETA$:IFA$<>" "THEN60250
60260 RETURN
60500 PRINTRIGHT$(DE$,SB-1)"[164]";:A$=DE$:FORA=SBTONC+1
60510 GETB$:IFB$=""THEN60510
60520 IFB$=CHR$(13)THEN60580
60530 IFB$=CHR$(20)ANDA>1THENA=A-1:PRINT"[157][157]  [157][157][164]";:A$=LEFT$(A$,A-1):GOTO60510
60535 IFA=NC+1THEN60510
60537 IFB$>="[193]"ANDB$<="[218]"THENB$=CHR$(ASC(B$)-128)
60540 IFB$>="0"ANDB$<="9"THEN60570
60550 IF(MM)ANDB$>=" "ANDB$<="Z"THEN60570
60560 GOTO60510
60570 PRINT"[157]"B$;:POKE212,.:PRINT"[164]";:A$=A$+B$:NEXT
60580 PRINT"[157] ":RETURN